unit cmdSetLayerInfoOff;

interface

uses  classes, sysutils
    , nativeXml
//    , appMappldXmlNode
    , appMappldXmlCommand
    , appMappldTypes
//    , appMappldXmlContext
    , appMappldXmlLayer
;

type
    {------------------------------ TCmdSetLayerInfoOff }

    {***************************************************************************
    * TCmdSetLayerInfoOff
    ***************************************************************************}
    TCmdSetLayerInfoOff = class( TMappldXmlCommand )
protected
    procedure   internalProccess(); override;
    end;

implementation

{*******************************************************************************
* internalProccess
*******************************************************************************}
procedure TCmdSetLayerInfoOff.internalProccess();
var
    layer : TMappldXmlLayer;

begin
    layer := FxmlContext.layersByCode[ FxmlNode.ValueAsString ];
    if ( layer = nil ) then
    begin
        exit;
    end;

    layer.flInfo := true;
end;

initialization

TMappldXmlCommand.registerCommandByCode( XML_CMD_SetLayerInfoOff, TCmdSetLayerInfoOff );

end.
